﻿Imports System.IO
Imports System.Data
Imports MetodosComuns
Imports extranet.BC
Imports extranet.BE
Imports System.Collections.Generic

Partial Class Franquia
    Inherits System.Web.UI.Page

    Private Const MESSAGE_ERRO_NA_INSERCAO As String = "Erro na inserção do Registro!."
    Private Const MESSAGE_ERRO_NA_ALTERACAO As String = "Erro na atualização do Registro!."
    Private Const MESSAGE_ERRO_NA_EXCLUSAO As String = "Erro na exclusão do Registro!."

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '==================       PROCEDIMENTO  PADRÃO  SEGURANÇA     =============================
        Dim objBESeguranca As BESeguranca
        Dim objBEUsuario As BEUsuario = Session("objBEUsuario")
        If IsNothing(objBEUsuario) Then Response.Redirect(TELA_LOGOUT)
        Session("strTela") = MetodosComuns.GetCurrentPageName()
        If Not IsPostBack Then          ' SEGURANÇA
            objBESeguranca = BCSeguranca.SelecionaPermissoes(objBEUsuario.GrupoAcesso, Session("strTela"))
            If Not objBESeguranca.Autorizado Then Response.Redirect(TELA_LOGOUT)
            Session("objBESeguranca") = objBESeguranca
        Else
            objBESeguranca = Session("objBESeguranca")
        End If

        '==================       ALTERAR SE FOR NECESSARIO          ===============================
        If Not IsPostBack Then
            If Session("FranquiaParaConsulta") Is Nothing Then
                Response.Redirect(TELA_LOGOUT)
            End If
            Dim objBEFranquia As BEFranquia = Session("FranquiaParaConsulta")
            mostraRegistro(objBEFranquia.IdFranquia)
            Session("FranquiaParaConsulta") = Nothing
        End If
    End Sub

    Protected Sub mostraRegistro(ByVal intId As Integer)
        Dim listFranquia As List(Of BEFranquia) = BCFranquia.Selecionar(intId)
        If listFranquia.Count > 0 Then lblTituloPagina.Text = listFranquia(0).Nome
        fv_Usuario.DataSource = listFranquia
        fv_Usuario.DataBind()
    End Sub

End Class

